   1 .
   2 .
   3 .
   4 .SPIRALS 2
   5 .MATT GIWER
   6 .NT=0
  10 clear 
 100 A=3
 200 B=rnd (2)
 210 C=rnd (2)
 800 X=B;Y=0
 850 for D=1to 100
 900 X=X+B
 905 Y=Y+C
 907 if X>75goto 100
 908 if Y>45goto 100
 910 gosub 1050
 950 next D
 990 goto 10
1050 .M
1060 line X,0,A
1070 line 0,-Y,A
1090 line -X,0,A
1110 line 0,Y,A
1200 return 
9000 .M
:return ;run 
